home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / BBEdit / MacBob 1.0ß2 / Examples / Fib.Bob < prev    next >
Encoding:
Text File  |  1995-12-07  |  231 b   |  22 lines  |  [TEXT/R*ch]
  1.  
  2. Fib (n)
  3. {
  4. //    print("Fib(", n, ")\n");
  5.     if (n == 1 || n == 0)
  6.         return 1;
  7.     return Fib(n - 2) + Fib(n - 1);
  8. }
  9.  
  10. PrintFib (n)
  11. {
  12.     print("Fib(", n, ") = ", Fib(n), "\n");
  13. }
  14.  
  15.  
  16. main ()
  17. {
  18.     PrintFib(20);
  19. //    PrintFib(25);
  20. //    PrintFib(30);
  21. }
  22.